home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 034a / twview82.zip / PART3.INC < prev    next >
Text File  |  1991-02-04  |  1KB  |  40 lines
  1.  
  2. procedure PartIII;
  3. var
  4.   newcount,
  5.   count, n  : integer;
  6.   line      : string;
  7.   ch        : char;
  8.   ScanMe    : array [ sector ] of boolean;
  9.   s         : sector;
  10. begin
  11.   for s := 1 to MaxSector do                            { if unexplored }
  12.     ScanMe[ s ] := space.sectors[s].number=Unexplored;  { we'd like it  }
  13.   repeat
  14.     readln( f, line) ;
  15.   until (pos( 'sectors:', line ) > 0) or eof(f);
  16.   n := readnumber;
  17.   while (not eof(f) ) and (n>0) do
  18.     begin
  19.       ScanMe[ n ] := false;                              { no info       }
  20.       n := ReadNumber;
  21.     end; {while}
  22.   newcount := 0;
  23.   for s := 1 to MaxSector do
  24.     if ScanMe[s] then
  25.       begin
  26.         newcount := newcount + 1;
  27.         writeln('New sector infor for ', s );
  28.         writeln( g, 'I', s);
  29.         writeln( g, 'R', s );
  30.       end;
  31.   writeln('Explored ', newcount, ' new sectors.');
  32.   write('Do you want a refresh on your ports? ');
  33.   readln( ch );
  34.   if ch in ['Y','y'] then
  35.     for n := 1 to maxSector do
  36.       if space.sectors[n].PortType <> NotAPort then
  37.         writeln( g, 'R', n );
  38.   close( g);
  39. end; {PartIII}
  40.